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-- file BuildNucleus.Mesa 

— last edited by Sandman, May 10, 1978 2:39 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs", 
BootCacheDefs: FROM "BootCacheDefs", 
BootmesaDefs: FROM "bootmesadefs" , 
CommanderDefs: FROM "commanderdefs", 
ControlDefs: FROM "controldef s", 
FakeSegDefs: FROM "fakesegdef s", 
IODefs: FROM "iodefs", 
TimeDefs: FROM "timedef s", 
SegmentDefs: FROM "segmentdefs", 
StringDefs: FROM "stringdefs"; 

DEFINITIONS FROM BootmesaDefs; 

BuildNucleus: PROGRAM 

IMPORTS BootmesaDefs, CommanderDefs, FakeSegDefs, IODefs, BootCacheDefs, 

SegmentDefs, StringDefs, TimeDefs 
EXPORTS BootmesaDefs ■ 

BEGIN 

FrameHandle: TYPE ■ ControlDefs. FrameHandle; 
GlobalFrameHandle: TYPE ■ ControlDefs. GlobalFrameHandle; 

name: STRING ♦- [40]; 

Initialize; PROCEDURE - 

BEGIN OPEN TimeDefs, IODefs; 

timeofbuilding: STRING «- [18]; 

version: BcdDefs. VersionStamp «- Initial izeBootmesa[10, name]; 

AppendDayTime[timeofbuilding,UnpackDT[version.time]]; 

timeofbuilding. length ♦- timeofbuilding. length - 3; 

WriteChar[CR]; 

WriteString[name]; WriteStr ing[" , Image — "]; WriteLine[timeof building]; 

SetExtraFrames[]; 

RETURN 

END; 

loadstateseg, initloadstateseg: FakeSegDefs. FakeSegmentHandle; 
bcdseg: FakeSegDefs. FakeSegmentHandle; 

RunCode: PROCEDURE - 

BEGIN OPEN SegmentDefs, BootmesaDefs; 

SwapInResidentCode[] ; 

FakeSegDef s.FakeSwapIn[i nit loadstateseg]; 

FakeSegDefs . FakeSwap I n[ loadstateseg]; 

FakeSegDefs.FakeSwapIn[bcdseg]; 

SwapInUserCode[]; 

TurnOffStartTrap[]; 

Initial izelmage[]; 

DeclareBootCommand[bcO]; 

DeclareSegments[]; 

Dec! areVMBounds[ FakeSegDef s.GetVMBounds[]]; 

-- now we can write the image file 

Writelmage[]; 

AdjustBcd[bcdseg]; 

Dec lareLoadStateParameters[ loadstateseg, initloadstateseg, bcdseg]; 

DeclareBootCommand[bcl]; 

UnlockUserCode[]; 

DeclareOpenFiles[]; -- lookup all requested files 

DeclareBootCommand[bc2]; 

XFER[dest: WartFrame[]]; 

RETURN 

END; 

SwapInResidentCode: PROCEDURE ■ 
BEGIN OPEN FakeSegDefs; 
codeseg: FakeSegmentHandle <- NIL; 
SwapInModule: 

PROCEDURE [frame: ControlDefs .Global FrameHandle] RETURNS [BOOLEAN] - 

BEGIN 
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cseg: FakeSegmentHandle <- BootCacheDefs.READ[Qframe.codesegment]; 

IF cseg # codeseg THEN SwapInFrame[f rame]; 

IF codeseg ■ NIL THEN codeseg <- cseg; 

RETURN[FALSE] 

END; 
[] +■ BootmesaDefs.EnumerateResidentModules[SwapInModule]; 
END; 

GetFrames: PROCEDURE ■ 
BEGIN OPEN SegmentDefs; 
s: STRING <- [40]; 
StringDef s. Appends tring[s, name]; 
Str i ngDef s. Appends tringEs/' .bed"]; 
[loadstateseg, initloadstateseg, bedseg] *- Load[s]; 
SwapIn[bcdseg.Link2]; 

InitUtilities[FileSegmentAddress[bcdseg.Link2]]; 
BootmesaDefs.LookUpResidentModules[]; 
END; 

Find: PUBLIC PROCEDURE [module: STRING] RETURNS [frame: GlobalFrameHandle] 
BEGIN 

frame «- Frame[module]; 
IF frame ■ ControlDef s.NullGlobalFrame THEN 

BEGIN OPEN IODefs; 

WriteString["Can't find module "]; 

WriteString[module]; 

SIGNAL BootAbort; 

END; 
END; 

BuildMesa: PROCEDURE - 
BEGIN 

OpenSource[name]; 
Parselnput[]; 
Initialize^]; 
GetFrames[]; 
RunCode[]; 
CloseSource[]; 
END; 

— main body code 

BuildSystem: PROCEDURE [n: STRING] - 
BEGIN 

name. length «- 0; 

StringDefs. Appends tring[name,n]; 
BuildMesa[ ! 

IODefs. Rubout -> RETRY; 
BootAbort ■> 
BEGIN 

IODefs. WriteLine[" Bootmesa aborted. Type any character to exit"]; 
[] «- IODefs. ReadChar[]; 
CONTINUE 
END]; 
END; 

CommanderDefs.AddCommand["Build" t LOOPHOLE[BuildSystem], l].params[0] «- 
[type: string, prompt: "System Name"]; 

END... 



